home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #6 / Commodore_Disk_User_Vol.1_6_1988_-.d64 / dec_hex convert (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  174 b   |  8 lines
  1. 10 input"number in decimal";dec:ifdec>65535thenprint"too big":goto10
  2. 20 f=4096:fora=1to4
  3. 30 d%=dec/f:dec=dec-d%*f
  4. 40 d%=d%+48:ifd%>57thend%=d%+7
  5. 50 hx$=hx$+chr$(d%):f=f/16
  6. 60 next
  7. 70 print"$"hx$
  8.